﻿Public Class ClsUcnGridUnboundItemPropertiesOfItem
    Inherits ClsUcnGridUnboundItemBasic
    'represents TreeList row in UcnGridUnbound usercontrol - properties of item

#Region "Attributes"
#Region "Private attributes"
    Private MsPropertyName As String 'property name
    Private MoPropertyValue As Object 'property value
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean, ByVal IsPropertyName As String, ByVal IoPropertyValue As Object)
        MyBase.New(IiRowID, IiParentRowID, IbEnabled, IbSelected)

        MsPropertyName = IsPropertyName
        MoPropertyValue = IoPropertyValue
    End Sub
#End Region

#Region "Properties"
#Region "Public properties"
    Public Property PropertyValue() As Object
        Get
            Return MoPropertyValue
        End Get
        Set(ByVal IoValue As Object)
            MoPropertyValue = IoValue
        End Set
    End Property
    Public Property PropertyName() As String
        Get
            Return MsPropertyName
        End Get
        Set(ByVal IsValue As String)
            MsPropertyName = IsValue
        End Set
    End Property
#End Region
#End Region

End Class

